home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DOVT52LF.MOD < prev    next >
Text File  |  1987-03-11  |  2KB  |  51 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Do_VT52_LineFeeds --- Do special VT52 linefeed processing    *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Do_VT52_LineFeeds( Ch : CHAR );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Do_VT52_LineFeeds                                    *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handle line feeds for VT52 mode                      *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Do_VT52_LineFeeds( Ch: CHAR );                                *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    X          : INTEGER;
  21.    Y          : INTEGER;
  22.    Print_Line : STRING[132];
  23.  
  24. BEGIN (* Do_VT52_LineFeeds *)
  25.  
  26.    IF Capture_On THEN
  27.       Capture_Char( Ch );
  28.  
  29.    X := WhereX;
  30.    Y := SUCC( WhereY );
  31.  
  32.    IF ( Y < Max_Screen_Line ) THEN
  33.       GoToXY( X , Y )
  34.    ELSE
  35.       Scroll( 1, PRED( Max_Screen_Line ), 1, Max_Screen_Col, 1,
  36.               ForeGround_Color, BackGround_Color );
  37.  
  38.    IF Auto_Print_Mode THEN
  39.       BEGIN
  40.          Get_Screen_Text_Line( Print_Line, PRED( WhereY ), 1 );
  41.          WRITELN( Lst , Print_Line );
  42.       END;
  43.  
  44.    IF Printer_On THEN
  45.       WRITE( Lst , Ch );
  46.  
  47.    IF Review_On THEN
  48.       Update_Review_Pointers;
  49.  
  50. END   (* Do_VT52_LineFeeds *);
  51.